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This Technical Note describes a problem using the MLIACTV flag with the He Workstation 



When using the Apple He Workstation Card, the MLIACTV flag does not always show that the 
MLI (or PFI) is active. This inconsistency can cause programs that use the MLIACTV flag to fail 
when making MLI calls from interrupt routines. Programs can correct for this problem by 
making all MLI calls through the NewMLI routine listed in this Note and checking the 
NewMLIActv flag instead of the MLIACTV flag. This approach solves the problem only if all 
MLI calls, including those made by any interrupt routines, are made through this routine. 

The following routine is a replacement for the MLI entry point at $BF00. Programs using this 
routine can perform a JSR to NewMLI instead, which fixes the problem. Section 6.2.1 of the 
ProDOS 8 Technical Reference Manual details how programs can cause the MLI to return the 
their routine rather than the routine that originally called it. For programs using this technique 
that are also using the routine below, the location below labeled NewCmdAddr replaces 
CmdAdr ($BF9C). The steps involved in patching the MLI return location still apply, as 
specified in Section 6.2. 1 of the ProDOS 8 Technical Reference. 

; MLI patch for Apple II Workstation Card 
; by Mark Day 

; code shown is compatible with MPW IIGS cross-assembler 

; Your program should use the NewMLIActv flag instead of 
; MLIACTV ($BF9B), and should JSR NewMLI instead of 
; JSR MLI ($BF00) . 



Card. 



machine 
longa off 
longi off 



M6502 



6502 code for lie. 



parmptr 
MLI 



equ 
equ 





$BF00 



; two bytes on zero page 
; entry to the real MLI 



NewMLI proc 



php 
pla 



sta oldp 
sei 



save old interrupt status to 
temporarily disable interrupts 
so that NewCmdAddr is always valid 
when an interrupting routine sees 
NewMLI active. 
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sec 

ror NewMLIActv ; NewMLI is now active! 
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We need to get the return address from the stack so we can 
get the command number and parameter block address which 
follow the JSR NewMLI, and so we can save NewCmdAddr. 



clc 








pla 




. 


get low byte of parm address - 


sta 


parmptr 






adc 


#4 


r 


get real return address 


sta 


NewCmdAddr 






pla 








sta 


parmptr+1 


t 


save high byte of parm address 


adc 


#0 






sta 


NewCmdAddr +1 


r 


save real return address 


Ida 


oldp 






pha 








pip 




r 


reinstate old interrupt status 



Now, we copy the call number and parameter list pointer that followed 
the JSR NewMLI , and copy them after a JSR to the real ML I . 





tya 




t 


save Y on stack 




pha 










ldy 


#1 


r 


offset to command number 




Ida 


( parmptr ) , y 


r 


get command number 




sta 


NewCmdNum 








iny 




r 


point to parm list ptr (low) 




Ida 


( parmptr ) , y 








sta 


NewParmPtr 








iny 










Ida 


( parmptr ) , y 








sta 


NewParmPtr+1 








pla 




r 


unstack value of y register 




tay 








; Now, call 


the real ML I with the 


user's command and parameter list 


; and j ump 


back to 


our caller. 








jsr 


ML I 




call the real ML I 


NewCmdNum 


dc.b 







command number 


NewParmPtr 


dc .w 







parameter list pointer 




php 






save C because LSR changes it! 




lsr 


NewMLIActv 




ML I is no longer active 




pip 






restore C 




dc .b 


$4C 




JMP absolute instruction 


NewCmdAddr 


dc .w 







target of jump, caller's return address 


NewMLIActv 


dc.b 







$80 bit set if ML I active 


oldp 


ds.b 


1 




used to preserve processor status 




endp 










end 









Note that this routine also works on the Apple IlGS, even though the problem with the MLIACTV 
flag only affects Apple He Workstation Cards. 

Further Reference 

• AppleShare Programmer's Guide for the Apple IIGS 

• ProDOS 8 Technical Reference Manual 
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